home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / MarkzScout™ 14-day trial / Scripts / Used Images.M1S < prev   
Encoding:
Text File  |  1999-02-05  |  715 b   |  38 lines  |  [TEXT/MSCT]
  1. //
  2. // Used Images.M1S: show image list for document
  3. //
  4.  
  5. //
  6. // *************************************
  7. // Procedures
  8. // *************************************
  9. // 
  10. proc imageProc 
  11.   //
  12.   // This procedure is also called for the document itself
  13.   // but we're only interested in images used by the document -
  14.   // so we exclude the document from the report
  15.   //
  16.   if it <> theJob then
  17.     print 
  18.       Left(
  19.        it.CLASS_NAME
  20.        +"                ",16)
  21.     +it.name
  22.   end if
  23. end proc
  24.  
  25. // 
  26. // Execute a procedure for all images
  27. //
  28. theJob = it
  29.  
  30. print "Used Image List for " + theJob.name
  31.  
  32. on document do imageProc
  33. scan theJob links uses,contains,overlaps
  34. scan reset
  35.  
  36. print "---------------------------------------"
  37.  
  38.